Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/PASCAL/1463.ZIP/DRAW-2D.ARC/LEV4OPT.PAS

Pascal/Delphi Source File | 1986-11-25 | 824b | 33 lines

PROCEDURE LEV4OPT;
   VAR
     KODE:INTEGER;
   BEGIN
     CASE OPTION OF
   0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ ELSE RING2;
   1: BEGIN   (* SCALE *)
        IF (BUTTON1) OR (BUTTON2) THEN SKALE;
      END;
   2: BEGIN   (* ZOOM-IN *)
        IF (BUTTON1) OR (BUTTON2) THEN ZOOMIN;
      END;
   3: BEGIN   (* ZOOM-OUT *)
        IF (BUTTON1) OR (BUTTON2) THEN ZOOMOUT;
      END;
   4: BEGIN   (* X-LATE *)
        IF (BUTTON1) OR (BUTTON2) THEN XLATE;
      END;
   5: BEGIN   (* PAN *)
        IF (BUTTON1) OR (BUTTON2) THEN PAN;
      END;
   6: BEGIN   (* ROTATE *)
         IF (BUTTON1) OR (BUTTON2) THEN ROTATES;
      END;
   7: BEGIN
      END;
   8: IF (BUTTON1) OR (BUTTON2) THEN
         BEGIN
           LEV := 1;
           MENU(LEV);
         END;
     END; (*CASE*)
   END;